home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / cross / sasmv14.dms / sasmv14.adf / AREXX / sasmrexx.ced < prev   
Text File  |  1993-05-22  |  1KB  |  50 lines
  1.  
  2. /*******************************/
  3. /*   ARexx CED Interface       */
  4. /*   for the Super SASM        */
  5. /*                             */
  6. /*   Done by NATAS/DIVINA      */
  7. /*   Slightly modified by FS   */
  8. /*******************************/
  9.  
  10. ErrorFile    =    't:sasm.error'
  11. ProjectFile    =    '.project'
  12.  
  13. Options Results
  14. address 'rexx_ced'
  15.  
  16. If Exists(ProjectFile) then
  17. do
  18.     Call Open(Work,ProjectFile)
  19.     FileName=ReadLN(Work)
  20.     Opt=ReadLN(Work)
  21.     Call Close(Work)
  22.  
  23.     ADDRESS COMMAND 'delete t:sasm.error'
  24.     ADDRESS COMMAND 'ice:famicom/ass/sasm '||FileName Opt
  25.  
  26.     If Exists(ErrorFile) then
  27.     do
  28.         Call Open(Work,ErrorFile)
  29.         Line1=ReadLN(Work)    
  30.         Line2=ReadLN(Work)
  31.         Line3=ReadLN(Work)
  32.         Call Close(Work)
  33.         jumpto Line1 0
  34.         Okay1 Line2||'0a'x||Line3
  35.         End
  36.     Else do
  37.         OkayString='Assembling ok, Super SASM reported no errors.'
  38.         If Opt='send' then do
  39.             OkayString=OkayString||'0a'x||'Executable successfully transfered to SMC.'
  40.         End
  41.         Okay1 OkayString
  42.         Exit
  43.     End
  44.  
  45. End
  46.  
  47. Else do
  48.     okay1 "ERROR: There's no .project file. Dont"||'0a'x||"know what to assemble."
  49. End
  50.